FM Towns: Free Software Collection 9/FM Towns Free Software Collection 9.iso/taropyon/edia/ccisrc/edipghlp.c

Text File | 1994-11-16 | 5.0 KB | 194 lines

/*************************************************************************
*    プログラミングヘルパ
*************************************************************************/

char       *MACROKEY_PGHELP_PATH = "ProgHelp_path";
char       *_PGHELP_FN = "_index";

#define    _PGHELP_HASH_MAX        (16)
#define    _PGHELP_SIZ_FNINF        (16)

#define    _PGHELP_SIZ_TAG            (40)    /* タグサイズ                    */
#define    _PGHELP_SIZ_FNC            (28)    /* タグ格納する関数名の長さ        */
#define    _PGHELP_POS_FNC            (_PGHELP_SIZ_TAG - _PGHELP_SIZ_FNC)
                                        /* タグ中の関数名格納位置        */

int        _pgHelp_hash(char *name)
{
    int            hash, ch;

    hash = 0;
    while ( *name )
    {
        ch = (*name) & 0xFF;
        hash = hash + (ch * 31);
        ++name;
    }
    return (hash & (_PGHELP_HASH_MAX-1));
}

int        _pgHelp(char *name)
{
    char       *path, fnIndex[256], fn[256];
    char       *fpIndex, *fp;
    int            ret, hash, numfn, n, ch, i;
    char        *s, *p, buf[BUFSIZ];
    char       *fntbl, fninf[_PGHELP_SIZ_FNINF];
    char        tag[_PGHELP_SIZ_TAG+4], func[_PGHELP_SIZ_FNC+4];

    char        fbuf[64];
    long        fpos;

    int            x0, y0;
    char       *dlg;
    char       *txtPtr;

    DSP_writePage(1);
    x0 = y0 = DLGPOS_CENTER_OF_SCN;
    txtPtr = NULL;

    hash = _pgHelp_hash(name);
    if ( (path = AMAC_getName( SysMacro, MACROKEY_PGHELP_PATH)) == NULL )
    {
        sprintf(buf, "%sMANUAL/", AplGetStartPath() );
        AMAC_setKey( SysMacro, MACROKEY_PGHELP_PATH, buf );
        if ( (path = AMAC_getName( SysMacro, MACROKEY_PGHELP_PATH)) == NULL )
            return (ERR);
    }

    /* インデックファイル名の取得    ------------------------------------*/
    sprintf( fnIndex, "%s%s.%03d", path, _PGHELP_FN, hash );
    if ( (fpIndex = fopen(fnIndex,"rb")) == NULL )
    {
        DLG_tmpMsgTime( DLGPOS_MOS_SET_CENTER, DLGPOS_MOS_SET_CENTER,
            C_MBLACK, C_DLGBASE, COLMIX(C_ERROR,C_GRAY),
            3, "  %s : \n  Can't open index file!! ", fnIndex );
        return (ERR);
    }

    ret = 0;
    for(;;)
    {
        if ( fread(tag,_PGHELP_SIZ_TAG,1,fpIndex) < 1 )    /* ファイル位置情報    */
        {
            ret = -1;
            break;
        }
        if ( strncmp( name, tag + _PGHELP_POS_FNC, _PGHELP_SIZ_FNC) == 0 )
            break;
    }
    fclose(fpIndex);

    if ( ret )
    {    /* 指定の検索パターンはない    */
        DLG_tmpMsgTime( DLGPOS_MOS_SET_CENTER, DLGPOS_MOS_SET_CENTER,
            C_MBLACK, C_DLGBASE, COLMIX(C_ERROR,C_GRAY),
            3, "  %s : \n  Pattern not found!! ", name );
        return (ERR);
    }

    /* ファイル名テーブルの読み込み    ------------------------------------*/
    sprintf( fnIndex, "%s%s.tbl", path, _PGHELP_FN );
    if ( (fpIndex = fopen(fnIndex,"rb")) == NULL )
    {
        DLG_tmpMsgTime( DLGPOS_MOS_SET_CENTER, DLGPOS_MOS_SET_CENTER,
            C_MBLACK, C_DLGBASE, COLMIX(C_ERROR,C_GRAY),
            3, "  %s : \n  Can't open index file!! ", fnIndex );
        return (ERR);
    }
    fpos = tag[0] * _PGHELP_SIZ_FNINF;
    fseek(fpIndex,fpos,SEEK_SET);
    fread(fninf,_PGHELP_SIZ_FNINF,1,fpIndex);
    fclose(fpIndex);

    if ( fninf[0] != tag[0] )    /* ファイル番号が一致しない    */
        return (ERR);

    sprintf(fn,"%s%s", path, fninf + 1);
    if ( (fp = fopen(fn,"rb")) == NULL )
    {
        DLG_tmpMsgTime( DLGPOS_MOS_SET_CENTER, DLGPOS_MOS_SET_CENTER,
            C_MBLACK, C_DLGBASE, COLMIX(C_ERROR,C_GRAY),
            3, "  %s : \n  Can't open manual file!! ", fn );
        return (ERR);
    }
    fpos = _getDword(tag + 1);
    fseek(fp,fpos,SEEK_SET);

    /* 説明内容の読み込み    --------------------------------------------*/
    fgets(buf,BUFSIZ,fp);    /* read header line */
    while ( fgets(buf,BUFSIZ,fp) != NULL )
    {
        if ( buf[0] == '.' )
            break;
        txtPtr = DLG_txtSetLinBuf( txtPtr, 8, 80, "%s", buf );
    }
    fclose(fp);

    if ( (dlg = DLG_txtOpen(x0,y0,80,20,txtPtr,0)) == NULL )
    {
        DLG_txtFreeLinBuf( txtPtr );
        return (ERR);
    }
    DLG_txtSetTitle( dlg, "PROGRAM HELPER" );
    DLG_txtSetGuideMsg( dlg, "Function : %s", name );
    DLG_txtStart( dlg );
    DLG_txtClose( dlg );
    DLG_txtFreeLinBuf( txtPtr );

    return (NORMAL);
}


/*************************************************************************
*    カーソル位置の単語の説明を見る
*************************************************************************/

int        TxdUsr_pg_help( char *txd )
{
    int            ret, ch, len;
    char        func[_PGHELP_SIZ_FNC+4];
    size_t        curLnL, curOfs;
    char       *dlg;

    if ( TxdGet_selFlag(txd) != 0 )        /* 選択中なら処理しない    */
        return (0);

    /* 現在カーソル位置を取得    */
    curLnL = TxdGet_curPosLnL(txd);
    curOfs = TxdGet_curPosOfs(txd);

    if ( (ch = TXD_getch(txd)) > 0 && ch < 256 && (isalpha(ch) || ch == '_') )
    {
        len = 0;
        while( len < _PGHELP_SIZ_FNC )
        {
            ch = TXD_getch(txd);
            TXD_cmdJump( txd, TXD_CUR_RIGHT );
            if ( isalpha(ch) || ch == '_' )
            {
                func[len++] = ch;
            } else
                break;
        }
        func[len] = '\0';
        TXD_jumpPos( txd, curLnL, curOfs );
        if ( len == 0 )
            return (NORMAL);
    } else
        func[0] = '\0';

    DSP_writePage(1);
    dlg = DLG_getsOpen( DLGPOS_MOS_SET_HOME, DLGPOS_MOS_SET_HOME, 320,
        "検索パターンを入力してください。" );
    DLG_getsSetTitle( dlg, "PATTERN" );
    ret = DLG_getsStart( dlg, _PGHELP_SIZ_FNC, func );
    DLG_getsClose(dlg);
    if ( ret <= 0 )
        return (0);

    _pgHelp( func );

    return (0);
}